home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / coder.s < prev    next >
Text File  |  1991-09-21  |  268b  |  13 lines
  1. * CODER by Simone Rapisarda & James Cloos
  2.  
  3.     ASSEMBLE
  4.             NIBASC /HPHP48-D/
  5.     RPL
  6.  
  7.         ::
  8.           CK2NOLASTWD DO>STR SWAP DO>STR DUPLEN$ ROT
  9.           BEGIN 2DUP LEN$ #>
  10.           WHILE DUP &$
  11.           REPEAT ONE ROT SUB$ XOR$
  12.         ;
  13.